input <- mtcars[,c('mpg','disp','hp','wt')]
model <- lm(mpg~disp+hp+wt,data=input)
cat('The Coefficient Values','')
a <- coef(moedl)[1]
Xdisp <- coef(model)[2]
Xhp <- coef(model)[3]
Xwt <- coef(model)[4]
print(Xdisp,Xhp,Xwt)
y <- a+Xdisp.x1+Xhp.x2+Xwt.x3
